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TIME xX SINCLAIR USERS  SROLIP 
MILE HIGH CHAPTER 


EXSSKE LATE KEEEKKET AERA SAAT SEEKS K EERE AES E EE ERLE KERR TE REE 
C/O FRANK HOLLAND, 1423 5. PEARL ST., DENVER CO 80210, 733-8103 


TSUG meetings are USUALLY on the 4th Thursday of every month. 
The DEC. MASENG is cancelled because of the holidays. 


MILE HI TSUG maintains a sub-board on THE KING'S MARKET BBS. 


1-303-555-6091, B-1-NONE. Accessible thru PC-PURSUIT. 
MENU SELECTIONS TO GET TO THE SUB-BOARD ARE: PATSA 
(1) CONTENTS .. CCAT/S 

(2) INTERESTS & USER GROUPS 655-7484 


C3) TIMEX-SINCLAIR 
General messages for ciub members are addressed to "ALL". 
ΣΣΣΣΣΦΣΣΣΣΣΣΣΣΣΣΗΣΣΣΣΣΑΣΑΣΣΣΣΣΣΣΣΣΣΧΣΑΧΣΣΣΣΣΧΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΣΚ 


MISC NOTES: MONITOR PROBLEMS 


For those of you who have been having problems with monitors. 
The "tearing" problem at the upper left corner of the display 
seems to be because of a peculiar mis-match that can occur 
between the computer and the monitor. 

The 75 ohm impedance matching resistor and the 100mfd DC 
isolation capacitor in the output circuit of the computer AND 
the 75 ohm impedance matching resistor in the input of the 
monitor form a "pi" network which feeds the input capacitor of 
the monitor. This input capacitor seems to vary widely from 
brand to brand and changes the balance of the "pi" network. 

My solution was to remove the 100 mfd output capacitor (C-58) 
and substitute a 470 mfd capacitor (after ë lot of 
experimentation). You may need to experiment a bit for the 
particular monitor that you have; mine is an AMDEK 300-6. 

There wasn't enough room in the video cage for the new cap so 
I replaced the capacitor with a jumper and made an add-on plug 
box with the 470 mfd cap. This goes between the  "manitor out" 
plug and the monitor. 

I have not experimented with replacing the 75 ohm resistors 
with 500 ohms for a different impedance match) because I would 
need to tear into both the computer and the monitor. 

If your monitor has a 75/300 ohm switch, then it would be a 
simple matter to remove the entire output  capacitor/resistor 
combination from the 2068, then add a switch and the two (75/300 
ohm) resistors to the capacitor in the add-on box so that you 
have an impedance selection switch for the computer. 

Just remember that the emitter resistor and blocking 
capacitor are now in the external box. If you power-up the 2068 
(or connect a monitor) without them it will damage the computer. 

And always make sure that the two switches are set the same. 
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ΣΣ ΣΣ ΣΣ ΣΑΣ ΕΕΣ ΣΣ ΣΑΣ ΣΕ ΣΣ ERT ATRL TAT ATK EE TERETE TL TTT TES 
DS-64 BUG: From SYNCWARE NEWS, Sept-Oct 787 


05-64 cartridge version 1.72 sets RAMTOP at 65255. This is 
ABOVE the machine stack and ram-resident code. If a long 
program over-writes the machine stack, the system will crash. 

The correct place for RAMTOP in double display mode is 63255, 
the first byte below UDG. 

"CLEAR 63255" will reset RAMTOP and allow use of the UDG's. 

"CLEAR 63423" will set it above the UDG area and give you 168 
more bytes to use. 


I found the same thing in my version 1.7 cartridge. Also, 
the default interface settings are different to the later 
cartridges (see the following documentation "LINE CHANGES AND 
ADDITIONS", lines 9994 and 9997. 


SEEK AAT TATA EKA TAKA TERA TAAL LAAT ETEK ETRE TELAT EER ELK EEA ETE 


THE FEATURE ARTICLE 
or 
Why you didn't receive a newsletter last month 


Several months ago I mentioned that I had rewritten PROFILE 
so that it could be used with the 05-64 cartridge in the 2068. 
Well, I think that I have finally ironed out all of the bugs and 
here it is. 

The explanatory notes and the BASIC program are in this 
newsletter. The BASIC program is also in the DOWNLOAD section 
of the King's Market BBS. 

The MC portion of the program has not been included because it 
is a copyrighted program and you have to pay Tom Woods for it. 

I have included instructions on how to change it if you already 
have a legal copy. 

I have sent a copy of the entire program to Tom, so write to 
him if you don't have PRO/FILE and are interested in it. 


MREKSEAAARELK ALLELE KALLE ATER A AEE RKTT AEA A REE RESELL ETT EREE 
WARNING: 

My printer makes lower case "l"s and the number "1" look very 
Similar. Also the letter "o" and the number "O". 


Both are used in the BASIC listing and it is very easy to 
confuse them. BE CAREFUL. 


PRO/FILE 2068 + 05-68 
THESE NOTES ARE INTENDED AS ñ SUPPLEMENT TO THE PROFILE MANUAL. 


I have rewritten PRO/FILE 2068 to operate with the ZEBRA 
05-64 module to provide a 64 column by 15 line data-file and 
display. Portions of the BASIC program were changed and the 
machine code had to be moved (and changed) to accomodate the 
changes in the operating system. 

There are only about 500 bytes left unused in ram. 


FILE SIZE: 


I have used 22760 bytes for d$ (maximum file size) because 
this rewrite was also intended for use with the A&J Microdrive 
(which makes a smaller file size practical) and, at this size, 
I can get 4 complete files on a 62 foot wafer. 

I like to SAVE a standard size file so that changes will not 
cause a new SAVE to over-write part of the following file on a 
wafer. 


ADDITIONS: 


I have added the following routines from the PRO/FILE manual 
(pps 97-107); 

The keypress "tick" 

keypress non-auto-repeat 

lprint from edit (copy display) 

autosearch improvement 

auto-sort (by 32 chars) 

block purge. 


I have also added a routine to allow 2 files to be merged. 


CHANGES: 


The main menu has been completely rearranged and several new 
functions added. 

The data-entry/edit menu has been rearranged and all of the 
functions now appear on a single menu. Upper/lower case ana 
insert/over conditions now appear on the menu. The line and 
column positions of the cursor are also displayed on the menu 
along with the LPRINT format. 

"STOP" to exit the data-entry mode and "STEP" to exit the 
edit mode are displayed as a reminder. The program is supposed 
to differentiate between them so BUT BE CAREFUL. I have 
experiencec random problems using STOP from edit. 

Different key-click sounds are provided for data-entry and 
control functions. 
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LINE CHANGES AND ADDITIONS: 


Many of the new line numbers and routines will not match the 
original program but they are still obvious enough that you can 
sort them out. These are the major changes. 


Lines 20 - 118: main menu & select 

Lines 1050 - 2000: data review menu 

Lines 5004 - 5018: data enter/edit menu 

Lines 5500 - 5510: data "LOAD" 

Lines 5600 - 5630: data "SAVE" 

Lines 5650 — 5680: "MERGE" two files 

Lines 7200 - 7240: "LPRINT" 

Line 9800: "CHANGE FILENAME" 

Line 9994: CLEAR 62627 and LOAD mc. 

Line 9995: DIM (22760) and certain standard values are put into 
variables to save ram space. 

Line 9995: Housekeeping variables are initialized including the 

blank lines and  "zzz"s that are necessary for 

sorting and printing operations.  GOSUB 5620 is to 
insert the "*SEARCH IS COMPLETES" message in the 
first 20 bytes of d$ (this is also used by LOAD. 

Line 9997: POKE 24201,0 (ASJ drive O) 
POKE £5510,0 (turn off line feed, 05-64) 
POKE 65523,185 (select A&J interface, 05-64) 
POKE 65525,72 (LPRINT # of chars per line, 

plus # of chars in margin, 05-64 

RANDOMIZE USR 15623 (initialize # of chars, 05-64) 

Line 9998: initialize y$ & f$, start (GO TO 1) 

Line 9999: SAVE & VERIFY for backup 


You may need to make some changes in Line 9997 to match your 
0S-64 (they”r not all the same), your interface, and your 
printer. 


MACHINE CODE: 


The PRO FILE MC now starts at 62628 (down 861 bytes) because 
the operating system is moved around for the 64 column mode and 
portions of it now occupy the top of ram. 

You will need HOT-Z, Dr some other  assembler/disassembler 
that will allow you to relocate blocks of code. Otherwise you 
will have to go thru the MC and change all of the GOTOs & JPs by 
hand. 

It was only necessary to change 3 bytes to accomodate the 64 
column mode. Addresses are the NEW locations. 


F502 Ξ 40 (40 hex - 64 spaces) 
F463 = 40 (set count to 44) 
F4C4 = 41 (4 of columns + 1) 


=E. 2 15 


"SAVE" and "LOAD": 


Both SAVE and LOAD will automatically put the computer in 
CAPS mode (POKE 23658,8). 


ດ11 data SAVE/LOAD operations are set up for A&I drive ο 
because 1 always keep programs in drive 1 and files in drive O. 


The dimensioned data file (d$), as the first variable 
declared, is always located at (PEEK 236274256XPEEK 23628). The 
first 6 bytes are header information, therefore the actual data 
starts at byte 7. Line 5630 creates variable "loc" which is the 
beginning of the data. loc=6+ (PEEK 23627+256*PEEK 23628). 


"SAVE": Line 5600; will use the "FILENAME" (f$) that appears on 
the main menu. The routine will also ask for a file number. 

The message "SEARCH IS COMPLETE" will be removed from d$ and 
the value of variable "p" (total bytes used) will be inserted in 
the, now unused, 20 bytes of the header. 

The program will automatically VERIFY. 


"LOAD"; Line 5500; will ask "HAS CURRENT FILE BEEN SAVED?" (as 
a safety check to prevent losing a file). "N" will return you 
to the main menu, "Y" will ask for the filename to be loaded. 
Variable "p" is extracted from the new d$ and the message 
"SEARCH IS COMPLETEt" is replaced in the first 20 bytes. 


"LPRINT": 


The 08-64 operating system does not support the 2040 
printer. However, it does provide a centronics driver far a 
large printer (interface selectable). Therefore, the driver 
code used in the manual is not necessary. 


The total number of characters per line are set in Line 
9997. However, since some printers do not have a "left margin” 
control — Line 7220 contains the necessary number of blank 
spaces to creste a left margin. This means that line 9997 (POKE 
&£5525.72) is the number of characters to be printed PLUS the 
number of characters for the margin. 


If you want a blank space between each individual file 
printout, then change line 7225 to "NEXT x: LPRINT". 


EXAMPLE; I have indexed the club newsletter library. The 
first line is always the newsletter name and date with content 
notes on the other lines. I get rid of the LPRINT when I want 
a list of just the newsletter names & dates. I use the LPRINT 
when I want a printout of the entire file, with a space between 
each file. 


=E :5:.3- 


COMBINING FILES (MERGE): 


PRO/FILE allows deleting blocks of files so that large files 
may be split. I have added a routine that allows two files to 
be combined. As written, it requires 2 microdrives. 

EDIT THE TWO FILES TO THE SIZE AND DATA THAT YOU WANT. 
Remembered that the total number of bytes in the two files MUST 
PE LESS than the maximum file size (22760 bytes minus 20, or 
11375 bytes each). 

Place the wafer containing the regular files in drive O, 
place a formatted wafer (20-35 ft) in drive 1. 

When you select "MERGE", the program will prompt for the 
first filename. It will then LOAD that file (from drive 0), 
place the actual file size in variable "pi" (pi=p-20), place the 
filename in "h$", and then SAVE tand VERIFY) the file tat its 
actual file size minus the 20 byte header) to drive 1. See line 
5660, SAVE "21,"+ f$ CODE tloc+20),pi. 

The program will then prompt for the next filename (to be 
LOADed from drive 0). This will LOAD normally. 

The first file will then automatically be reLOADed (using 
the name in "h$), AND using the new value in variable "p" to 
determine where the file should go in d$ so that it is 
immediately behind the resident file. Line 5680, LOAD “"a"+h$ 
CODE (loc+p+1) 

The value in variable "pl" is then added to the value in 
variable "p" to give the size of the combined file. 

It is a simple matter to rewrite the program if you only 
have one microdrive. You will need to put pauses (and reminder 
messages) in to allow time to swap wafers. 


WARNING: It has been my experience that no two microdrives 
run at the same speed. Therefore, if you have saved several 
files using the slower drive and then over-write one of those 
files using the faster drive, it will also over-write the 
beginning of the following file. 
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“ooo! 


0003 


C 


+04 


0005 


0008 


0010 


onzo 


0040 


0051 


0055 


, DRAW 


REM XX FRO/64 XX MODIFIED OCT, 1987 BY FRANK 


LET a=to: 
LET x$z"" 


RANDOMIZE p: 


ΕΟΚΕ VAL "63174", FEEE VAL "23670": 
FOKE VAL "63175", FEEK VAL "23671": 
RANDOMIZE USR VAL "63407" 
LET y=to: 
DIM es(ti5, t64): 
CLS 
If FEEK VAL "62750" - tO 

AND y$ <> "D" 

AND y$ <> " STEP " 

THEN GO SUB VAL "7300" 

IF y$ = "D" 

OR yt = " STEP " 

THEN GO TO t119 

CLS: 
PRINT AT ti, tiS; "XXXXXX PRO/FILE 2068 + 08-64 
PRINT AT t3, t3; "FILE + "; #97 

"FREE : "3 LEN d$ — p; "bytes"? 


TAB t3; "ORDER : "3 5’ 
"FORMAT: "s: af 


PRINT AT VAL "7", 
TAB t10; 
TAB ti0; 
TAB t10; 
TAB tiO; 
TAB tiO; 
TAB tio; 
TAB t10; 
TAE tid; 


tio; "<*X> LIST ALL FILES"? 
"<Esnter NEW FILE" 

"<Seave FILES (drive 0)"* 

"<Locad FILES (drive O)"* 
"<M>erge FILES"? 

"<Asutosearch (% lprint)"* 
"Format LFRINT"* 
"¿Change FILENAME 
"XF2urge ALL FILES" 


(7 chars.)"” 


FRINT AT VAL "18", 
TAB t2; 
TAB t2; 


au 


EZI 


FLOT tO, tO: 
t255, tO: 

DRAW tO, VAL "175": 
DRAW -t255, tO: 
DRAW tO, VAL "-175" 


FOKE 
INFUT 


VAL "23658", t8: 
"SEARCH COMMAND? ": x$ 


IF x$ - "E" 


THEN GO TO VAL "5000" 


"SEARCH COMMAND`# (line 1-9) 
"SEARCH COMMAND\D to delete series of files."" 
"Separate multi-word command words with token 


HOLLAND 


XXxxxx" 


to sort files,."" 


na AND nu τ 


KI 


Q 


38 


15 


i6 


50 


IF 


IF 


IF 


IF 


IF 


IF 


IF 


It 


IF 


we. umm nou 

THEN GO SUB VAL "S600": 
GO TO ti 

x$ = npo 

THEN GO SUB VAL "5500": 
GO TO ti 

x$ = nan 


THEN GO το VAL "5200" 


x$ - "F" 

THEN GO SUB VAL "6500": 
GO το t20 

vé = "C" 


THEN GO TO VAL "9800" 


x$ = "p" 
THEN GO TO VAL "9650" 


ເ = "M" 

THEN GO SUB VAL "5650": 
GO TO ti 

κ = m" 

THEN 60 TO ti 

MS(LEN x$) = " AND " 


OR LEN x$ » t64 
THEN GO TO tio 


οἱ 5 


LET x$ = 
LET x$ = x$ 


xe 


RAMDOMIZE USR VAL "63179" 


LET j$ = CHR$ PEEK VAL "23670" 


IF a = το 


THEN IF CODE jẹ > VAL "48" 


AND CODE j$ < VAL "58" 
THEN LET s = VAL j$: 

LET a = tl: 

LET y = tO: 

LET y$ = " STEP ": 
GO SUB VAL "7300": 
LET p$ = b$: 

LET g$ = of 


LET b = USR VAL "63240" 
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1010 


104“ 


1056 


1060 


IF j$ = "D" 
THEN LET a sti: 


LET s =tò: 
LET y$ - "D': 
LET y Ξ το 


FRINT AT tO,tO:: 
DIM e$(ti5, t64): 
LET e$(ti) = "": 
IF USR VAL "62714" THEN 


IF e$(ti, TO t18) = d$(t2 TO t19) 
AND b <> p 
THEN CLS: 
GO TO VAL "150" 


IF a 
THEN GO TO VAL "7000" 


IF a. 
THEN GO SUB VAL "7300": 
GO SUB VAL "7310": 
GO SUE VAL "7300" 


IF e$ttl, TO 118) <> d$(t27 TO tim) 
AND CODE j$ > t32 
THEN GO TO VAL "8500" + CODE j$ 


GO SUB VAL "9830": 

PRINT AT ti7,tOs "<M>ain menu's 
TAB t25; "“Erdit file”; 
TAB t45; "<Forint file" 
"ZENTER> to continue”; 
TAB ໄລຍ; "xA>0d new file"; 
TAB t45; "<Foormat"” 
"ZR^estart same search"; 
TAB t25; "<Doelete file”; 
TAB t45; " "t at 

PRINT AT t20, tl; "Search is fort": 
TAB VAL "36": "or enter new SEARCH COMMAND"? ΝΕ 
FOKE VAL "23658", t8 


INFUT "OPTION? "3 y$ 


ΙΕ yé = onn 
AND b < p 
THEN CLS: 
GO TO VAL "150" 
ΤΕ y$ > "ma 


THEN GO TO ti 


IF USK VAL "63407" THEN 
(this line is supposed to be this way, it is not an 


< 7 


error? 


1080 


1090 


1400 


1500 


2000 


4000 


4010 


5000 


5002 


5003 


5004 


5005 


IF PEEK VAL "63165" + t256 κ PEEK VAL "63166" 
<> PEEK VAL "23627" + t256 X FEEK VAL "23628" + VAL "6" 
AND (y$ = "D" OR y$ = "E") 
THEN GO TO VAL "4000" 


IF ys = NR 
THEN CLS: 
LET x$ = x$ 
GO TO t119 + (a X VAL "5121") 


IF yé = "pr 
THEN GO TO VAL "7205" 


IF yé = "F" 
THEN GO SUB VAL "98:30": 
GO SUB VAL "6500": 
LET y$ = າກ: 
GO TO VAL "1050" 


IF a$ = "A" 
THEN LET x$ = "1i": 
GO TO VAL "5000" 


LET x$ = γῆ: 
GO TO VAL "115" 


GO TO VAL "1050" 


LET p = p - USK VAL "62779": 
IF y$ - "D" 
THEN LET y$ = CHR$ (CODE "D" X a): 
GO TO νρι "4" 


GO TO VAL "5002" 


CLS: 
DIM e$(ti15, t64) 


LET m = tO: 
LET z - VAL "23658": 
LET i = tO: 
LET c = το 


GO SUB VAL "9830" 


PRINT AT ti7,tO0; "ARROWS move cursor",bs" 
"SHIFT O = Delete character", 
"SHIFT 1 = Alternate Insert/Over" 


PRINT AT t19,tO; "SHIFT 2 = CAPS LOCK", 
"SHIFT 3 = LINE DELETE"? 
"GHIFT 4 Ξ LINE ERASE", 
"SHIFT SYMBOL SHIFT: Line insert"* 
¿STOF? to close file”: 

ΤΕ ys = "En 

OR ys = nan 

THEN PRINT AT VAL "21", TO; "<STEP> to return from ADD/EDIT" 


=E ຮ d 


D 


5008 


5009 


5010 


5015 


5616 


5017 


S020 


5025 


5030 


ETA 


FRINT AT ti6, t5; "UFFER CASE": 


IF PEEK z.= tO 


THEN FRINT AT ti6, t5; "lower case" 


FRINT AT tié, 50; "INSERT OFF": 


IF i = ti 


THEN PRINT AT ti6, VAL 50; 


PRINT INVERSE ti; AT 1, C; 
AT t17, t32; "L= 
TAB 35; 1 + 1; 
TAB 40; "C= " 
TAB 43; ແ+ໄ1 


ον ERR GO TO 5008 


IF INKEY$ = າາ 
THEN 60 TO 5010 


LET y$ = ΙΝΚΕΥΦ 


IF y$ = " STEP " 
OR y$ = " STOP " 
THEN ON ERR RESET: 
CLS: 


GO TO 6000 


IF yé = un 
THEN GO TO 5010 


BEEF . 001, SO 
PRINT AT 1, cs SCREENS (1, 


IF CODE y$ + tié 
AND CODE y$ > t3 


"INSERT ON ” 


SCREENS (1.6): 


Da 
5 


c)t 


THEN GO SUB 5100 + CODE y$: 


BEEF .005, 25: 
GO TO 5006 


IF 1 


THEN LET es(1+1) = e$(l+1 TO c) + " " + es(l+ti, 


FRINT AT 1, tO; es(1+t1) 


PRINT AT l.c: y%: 

LET e$(l+ti, c+ti) = y$: 
LET c = (c+ti) X (cx63): 
LET 1 = 1 + (c=t0): 

LET 1 = 1 X (1<t15) 


GQ TO 5008 
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INVERSE tO; 


c+ti TO 63): 


5104 


5106 


5107 


5108 


5109 


5110 


5114 


FOR x = 1 TO 13: 
LET e£$(x-ti) = estx+t2): 


PRINT AT x, tO; esíu+ti): 


NEXT x: 
LET e$(ti5) = 
PRINT est(ti5): 
RETURN 


LET es (1+t1),c+t1 TO) = ານ; 
PRINT AT 1.10; es(1+t1): 
RETURN 


FOKE z, (PEEK z=t0) X tB: 
FRINT AT l,c; es(l+t1,c+t1): 
RETURN 


LET i = NOT i: 
FAUSE tS: 
RETURN 


LET c = ແ-(ແ?ໄ0): 
RETURN 


LET c = c*(cxX VAL "63"): 
RETURN 


LET 1 = 1+(VAL "14): 
RETURN 


LET 1 = 1-(1>t0): 
RETURN 


LET e$(l+ti) = es(l+ti, TO c) 


PRINT AT 1, tO: es(1+t1): 
GO TO VAL "S108" 


LET c = tO: 

LET 1 = 1 + tit 

LET 1 = 1 - (1>VAL "14"): 
RETURN 


+ ຂແ(1+ໄ1, 


FOR x = tib TD 1 + t2 STEP -.1Σ 


LET eS(x) = etí(x-ti): 


PRINT AT x - ti, τος es(x): 


NEXT x: 

LET es(1+t1) = ກນ 

PRINT AT 1, tO; e$(l+ti): 
RETURN 


GO TO VAL "5004" 
RETURN 

GO SUB VAL "7300": 
LET a = ti: 


INPUT "PRINT OUT Y/N) "š y$: 
LET y = y$ = "Y" 


=Ë 


10 1- 


c+t2 TO t63) 


+ 


5500 


5111 


5600 


5610 


5620 


INPUT "SEARCH COMMAND? "5 x$: 
IF x$ = "" 
OR LEN x$ > VAL "63" 
THEN BEEF VAL ".5", tid: 
GO TO VAL "5210" 


LET z$ = O"; 
INPUT "LINE NUMBER (0-15) "; z$: 
IF Shia wa 
THEN BEEF VAL ".5", 110: 
GO TO VAL "5220" 


ON ERR GO TO VAL "5220": 
IF VAL z$ < το 
OR VAL 2% > t15 
THEN GO TO VAL "S220" 


ON ERR RESET: 
LET s = VAL z$: 
CLS 


IF s <> to 
THEN LET p$ 
LET q$ 


bé: 
g$ 


"nn 


GO TO til? 


CES: 
POKE VAL "23658", t8: 
INPUT "HAS CURRENT FILE BEEN SAVED? 
IF y$ <> "Y" 
THEN GO TO ti 


INPUT "FILE NAME? "3 f$: 
GO SUB VAL "5630": 

LOAD "9" + f$ CODE loc: 
LET p = VAL d$ (ti TO +20) 


GO TO VAL "5620" 


POKE VAL "23658", t8: 

CLS: 

INFUT "SAVE AT FILE #7 "; n$: 
GO SUE VAL "5630": 

LET d$(ti TO t20) = STR$ p 


SAVE "Q" + n$ + "," + f$ CODE loc, 
VERIFY "2" + £$ CODE 


VAL 


(Y/N) 


j". 
5 


LET d$ (ti TO t20) = "SEARCH IS COMPLETEX": 


RETURN 


LET loc = (PEEK VAL "23627" + t256 κ PEEK 


RETURN 


<; Td de 


VAL 


yee 


"21760": 


"23628") 


+ VAL 


"asa 


5650 


5660 


5680 


6000 


6010 


6020 


6030 


6500 


6515 


οι 5: 
PRINT 
GO SUE 
LET pi 
LET ht 


"MERGE: file #1": 
VAL "5510": 

ວ - ໄ20: 

f$ 


"on 


FOKE VAL "24201", tl: 
SAVE "a1," + f$ CODE 
VERIFY "a" + f$ CODE: 
FOKE VAL "24201", tO 


(loc + t20), pl: 


FRINT "MERGE: file #2": 
GO SUB VAL "S510" 


tls 
(loc + p + ti): 
to: 


FOKE VAL 
LOAD "3" + h$ CODE 
FOKE VAL "24201", 
LET p =p + pl: 
RETURN 


"24201", 


LET d$(p) = CHR$ (42 — a X 42): 


FOR + = ti TO tiS 
LET e$(x) = es(x) 
IF USK 62628 THEN 
NEXT x 


LET p = USR 62669 


GO TO VAL "4" — (y$ = " STOP າ) + (a X (y$ 


FRINT AT t18, 
TAB t2; 
TAB t2i 


ts 


"Type ALL or line numbers 


"ENTER DESIRED FORMAT: "5 


LET cs ="": 
LET n= τος 
INFUT "FORMAT 
LET af = af + "/": 
IF aS (ti) = "/" 
THEN GO TO VAL 


af: 


"6510" 


IF a$ = 


THEN 


ALLI. 
FOR x = ti TO tis 
LET c$ = CHR$ x: 


OR a$(x) > rou 


THEN GO TO VAL "6510" 


=E- 12 Je 


(1— 
"Use ""O"" to print blank lines"; 


bs? 
9) 


STEP ")) 


separated by 
b$ 


11" 


U 


xo 


7010 


7080 


7090 


IF x < LEN a$ 


THEN ΙΕ a(x TO x+t1) 
THEN GO TO VAL 


IF a$(x) = "/" 


nyyn 
"6510 


THEN LET n = VAL aid TO x-t1): 


LET d = x + ti: 
IF n < t16 
THEN LET c$ 


IF n 2 tis 


THEN GO TO VAL "6510" 


NEXT x 
RETURN 


IF 5 = to 
THEN GO TO VAL "7202" 


IFb=p 
THEN GO TO VAL "7070" 


LET sf = e$(s, TO t32) 


IF s$ = pò£ 
THEN GO το VAL "7200" 


IF s$ > p$ 
THEN IF sẹ < qs 
THEN LET q$ = s$ 
GO TO VAL "7230" 


IF p$ = g$ 
THEN GO TO VAL "1047" 


LET pS = qs: 
LET q$# = g$: 
CLS 


LET x$ = x$: 
GO TO t119 


FOKE FEEK VAL "63165" + t256 X PEEK 


IF y= to 
THEN GO TO VAL "1047" 


c+ + CHR$ 


=E :15 d= 


VAL 


FOR x = ti TO LEN c$ 


IF CODE c#(x) = to 
THEN LFRINT 


IF CODE c$(x) 
AND ef$f(x) > b$ + b$ 
THEN LFRINT " "j" + "es (CONEc#(x)) 


NEXT x 
IF a 
AND b < p 
AND y$ <> "C" 
THEN CLS: 
GO TO VAL "159" 
GO TO VAL "1047" 


LET v = PEEK VAL "62750": 


FOKE VAL "62750", VAL "215" — v: 
ΕΟΚΕ VAL "62736", VAL "215" — v: 
RETURN i 


PRINT AT tO, tO:: 
LET e$(ti) = ກນະ 
IF USR VAL "62714" THEN 
(this line is supposed to be this way, it is not an 


RETURN 
GO TO ti 


LET p = p — USR VaL "52779": 
GO TO VAL "46060" 


GO TO ti 
GO TO VAL "1060" 


INPUT "ARE YOU SURE? (Y/N) "+ 46 
IF κ = "y" 
OR x$ = "Y" 
THEN GO TO VAL "9995" 


GO TO t1 


INFUT "NEW FILENAME? "i f$: 
GO TO ti 


PLOT tO, VAL "54": 
DRAW t255, tO: 
PLOT tO, VAL "52": 
DRAW t255, tO: 
FRINT AT tió, VAL "22"; "XX OPTION MENU ki": 
RETURN 


=[ “14.3- 


error?) 


9994 CLEAR VAL "62627": 
LOAD "3pro/64" CODE VAL "62628" 


ຈ Dim d$(VAL 722760"): 


LET to = VAL "o" 

LET ti = VAL "1": 

LET t2 = VAL "2%: 

LET t3 - VAL "3": 

LET tS = VAL "5": 

LET t8 = VAL "8": 

LET tio = VAL "10": 
LET ti5 = VAL "15"; 
LET tió = VAL "16": 
LET ti7 = VAL "17": 
LET ti9 = VAL "19": 
LET t20 = VAL "20": 
LET t25 = VAL "25": 
LET ໄວສ = VAL "32": 
LET t45 = VAL "45": 
LET t64 = VAL "64": 
LET tiiv = VAL "119": 
LET t255 = VAL "255": 
LET t256 = VAL "256" 


9996 LET p = t20: 
GO SUE VAL "5620": 
LET af = "ALL": 
LET ef = ານກ: 
ak, FOR x =ti TO t15: 
LET c$ = c$ + CHR$ x: 


NEXT x: 

LET s =t0: 

LET bs = " e 
LET gf = "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzrz' 


9997 FOKE VAL "24201", to: 
FOKE VAL "65510", to: 
FOKE VAL "65523", VAL "185": 
FOKE VAL "65525", VAL "72": 
RANDOMIZE USR VAL "15623": 
INK tO: 
CLS 


9998 LET y$ = "C": 
LET f$ = "FILENAME": 
GO TO ti 


9999 CLEAR: 
SAVE "3l1.FRO0/64" LINE VAL "9994"; 
SAVE "92.pro/64" CODE VAL "42628, VAL "795": 
VERIFY "QPRO/64": 
VERIFY "àpro/64" CODE 


sk dS" 3= 


